home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / misc.inc < prev    next >
Encoding:
Text File  |  1998-06-24  |  308 b   |  15 lines
  1. pattern AllocMiscResource(_unitNum,_name) is
  2.     push a6;
  3.     safe d0.l:=_unitNum; a1:=_name;;
  4.     a6:=MiscBase; jsr [a6-6];
  5.     pop a6;
  6. endp;                                                            # ALLOCMISCRESOURCE
  7.  
  8. pattern FreeMiscResource(_unitNum) is
  9.     push a6;
  10.     d0.l:=_unitNum;
  11.     a6:=MiscBase; jsr [a6-12];
  12.     pop a6;
  13. endp;                                                            # FREEMISCRESOURCE
  14.  
  15.